vb System.Tuple<T1,T2,T3,T4,T5,T6,T7>.Item1类(方法)实例源码

Module Example
   Public Sub Main()
      ' Create tuples containing population data for New York, Chicago, 
      ' and Los Angeles, 1960-2000.
      Dim cities() =
           { Tuple.Create("New York", 7891957, 7781984, 7894862, 
                          7071639, 7322564, 8008278),
             Tuple.Create("Los Angeles", 1970358, 2479015, 2816061, 
                          2966850, 3485398, 3694820),
             Tuple.Create("Chicago", 3620962, 3550904, 3366957, 
                          3005072, 2783726, 2896016) }

      ' Display tuple data in table.
      Dim header As String = "Population in"
      Console.WriteLine("{0,-12} {1,66}", 
                        "City", New String("-"c,(66-header.Length)\2) + header + _
                                New String("-"c, (66-header.Length)\2))
      Console.WriteLine("{0,24}{1,11}{2,11}{3,11}{4,11}{5,11}", 
                        "1950", "1960", "1970", "1980", "1990", "2000")                  
      Console.WriteLine()
      For Each city In cities                      
         Console.WriteLine("{0,-12} {1,11:N0}{2,11:N0}{3,11:N0}{4,11:N0}{5,11:N0}{6,11:N0}", 
                           city.Item1, city.Item2, city.Item3, city.Item4, 
                           city.Item5, city.Item6, city.Item7)
      Next
   End Sub
End Module